home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / A_BEVEL.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  59 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   A_BEVEL .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16.  
  17.    These boxes are good, general purpose buttons. Notice how the border of
  18.    the buttons change as you make the buttons "deeper". This is done to
  19.    keep the definition of the button.
  20.    1 to 3 pixel borders are simply that. The 4 pixel border creates a
  21.    simple 1pixel lip and 5 and above get really fancy by creating an
  22.    embossed inner border and puts highlights on the corners. They all put
  23.    the "black" border around the button to add definition.
  24. $endif
  25.  
  26. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  27. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  28.                                            '┌────────────────────────────────
  29. $INCLUDE "DAS-NB01.INC"                    '│
  30. $INCLUDE "DAS-NBV1.INC"                    '│
  31. $INCLUDE "DAS-NBV2.INC"                    '│
  32.                                            '│
  33. CLS                                        '│ get over to VGA color screen
  34. SCREEN 12                                  '│
  35. GraphicSETUP                               '│ set-up for DASoft's graphics
  36. fLoadDAScolor                              '│ load the 3D color arrangements
  37.                                            '│
  38. DIM XY%(3,10)                              '│ an Event Array where
  39.                                            '│   XY%(0,x) = left col
  40. FOR Depth? = 1 TO 7                        '│   XY%(1,x) = top row
  41.   LOCATE ( XY%(1,0) \ 16 ) + 2, 74         '│   XY%(2,x) = right col
  42.   PRINT USING "#pixels"; Depth?;           '│   XY%(3,x) = bottom row
  43.   XY%(0,0) = 0                             '│ back to column 0
  44.   XY%(3,0) = XY%(1,0) + 64                 '│ 65 pixel tall boxes
  45.   DO                                       '│
  46.     XY%(2,0) = XY%(0,0) + 64               '│ 65 pixel wide boxes
  47.     IF XY%(2,0) > 639 THEN EXIT LOOP       '│ all done with this line
  48.     GBoxBevelA XY%(0,0), Depth?, 4, 9, 14  '│ call it
  49.     INCR XY%(0,0), 64                      '│ next box right
  50.   LOOP                                     '│
  51.   INCR XY%(1,0), 64                        '│ next row of boxes
  52. NEXT                                       '│
  53.                                            '│
  54. WHILE NOT INSTAT : WEND                    '│ a clean exit
  55. CLS : PALETTE : SCREEN 0 : END             '└─────────────────────────────────
  56.  
  57.  
  58.  
  59.